home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
amac33.arc
/
QLST13.QM
< prev
next >
Wrap
Text File
|
1991-04-28
|
8KB
|
186 lines
* QLST13.QM
* Macro To Load Files From FileList
*
* @0 - Loads files from FileList, reads macfile of first file.
* @1 - Loads files from FileList, does NOT read macfile.
*
*
* DESCRIPTION:
*
* QLST13.QM are macros that enables QEdit to load a list of files from
* a FileList file of unlimited length. These may be two of the broadly
* most useful macros so far.
* The @1 macro was written by Kyle Watkins of SemWare. @0 is a version
* slightly modified by me to read the macfile of the first files in the
* FileList.
* Following is the syntex:
*
* Q.EXE [d:][FileList].ql /E[d:][fileName].mac
*
*
* For my setup and to load files pertaining to QLST.QM my command is:
*
* Q QLST.ql /Eg:\qe\QLST.mac
*
* I keep QLST.MAC in g:\qe.
*
* Any subsequent FileList I load can be loaded with the following command:
*
* Q [d:][FileList].ql /Eg:\qe\QLST.mac
*
* Place the macro by Kyle Watkins, Alt_1, FIRST in this file if you do
* NOT wish to load the macro of the first files in the FileList or the
* first files in the FileList does not have a macro. Then convert this
* txtfile with QMAC. You will know this is necessary when you get a
* beep and the following error message when loading files:
*
* "File Not Found. Press <Esc>"
* (Other) Macros available: See ALLMACRO.INF.
* These macros require "QEdit and QMAC v2.1, February, 1990" or later.
*
* To BEGIN, just type "START QLST" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and QLST13.MAC is read.
* Alternatively, type "START QLST 0" <Enter> and the disk copies of all
* files in the "Ring" will be loaded ready for editing, saving time.
* You will see the files being loaded and when the macro completes you
* should be editing this file. If you wish to load files from another
* file list while QLST.mac is loaded, just load that file list in
* another window and press Alt_0. Another option is to place this macro
* in QCONFIG.DAT on one line and it will be available to load other
* FileLists at all times while editing any file.
* You can also put the @z macro in FILExx.QM at the end of these macros
* to get the job of loading files with a FileList "completely" done,
* as shown at the end of the @0 macro, and also in QLST0.QM.
*┌────────────────────────────────────────────────────────────┐
*│ @0 Load Files From FileList, Read macfile of first file │
*└────────────────────────────────────────────────────────────┘
* Txtfile extensions must be only 2 letters. I use "QM". Add a
* "backspace" to last line of this macro if your txfile extensions
* have 3 letters.
*
@0 macrobegin
endfile begline * Get to last file first
REPEAT: *
Unmarkblock Markline * Mark it
Copy * Copy file name to scrap
Editfile Currentfilename " " * Load current file plus
Paste Return * last marked on list into ring
Cursorup * If another file, move up
JTrue REPEAT: * When no more files
nextfile macroread * read first file macro |
currentfilename * |TH mod
backspace backspace "mac" return* |
*
** Add lines below to load disk copy of all files in "Ring" from FileList
* (see QLST0.QM for this revised macro)
* Editfile '!' Return * Insert -or- GoTo NUL File
* Begline Cursorright * Put cursor in Col. 2 of NUL File
* LOOP: * Main test loop
* Nextfile * Move to next files in Ring
* Cursorleft * Move cursor left (need for NUL test)
* Jfalse LOOP: * If couldn't move to left, it's not
* * the NUL File AND cursor position
* * has not changed -- LOOP again
* *ELSE
* * Check to see if in the NUL File
* Cursorleft * Move cursor left for NUL Test
* Jfalse END: * If couldn't move left -- We
* * ARE in the NUL File and Need
* * to END the Macro
* *ELSE
* Cursorright * Move back to Col. 2 in NUL File
* END: * Macro is DONE
* Quit * Quit the NUL File
*
* 31 bytes Tue 07-31-1990 18:30:10
*┌──────────────────────────────────────────────────────────────────┐
*│ @1 Load Files From FileList, Does NOT Read macfile of first file │
*└──────────────────────────────────────────────────────────────────┘
*
* Use this macro, Alt_1, if you do NOT want to load the macro of the
* first files in the FileList.
*
* In comparing this latest macro (as written by Kyle Watkins) to one
* Tim Farley wrote earlier, the following message was sent to me on the
* SemWare BBS by Tim, dated 7/31/90:
*
************************************************************************
* COMMENTS FROM TIM FARLEY - SemWare:
*
*
* Here's Kyle's version (much improved over mine, I must admit) of the
* file list loading macro. Comments added by me.
*
* *
* * LOAD A LIST OF FILES
*
@1 MacroBegin
EndFile BegLine * start at last line
REPEAT:
UnmarkBlock MarkLine Copy * grab this name
EditFile * get ready to load
CurrentFilename " " * to force return *here*
Paste Return * paste file name & do it!
CursorUp * more lines above?
JTrue REPEAT: * if yes, repeat.
*
*
* Not only is this macro far smaller than mine (by almost a factor of
* 2!), but it has the following advantages:
*
* * faster!
* * doesn't "change" the file list file
* * still loads files in same order they are in the list
* * returns to list file with no screen "flashing"
* * takes advantage of QEdit's deferred loading of files
*
* That last bit is the main advantage: by specifying CurrentFilename
* plus a space plus the desired file name on the EditFile prompt, we
* load both the current file, plus the file we desire. This takes
* advantage of the fact that the EditFile, just like the QEdit command
* line, can accept multiple file names together, separated by spaces.
*
*
* But loading the current file just returns us to the buffer we are in
* with no disk access. So the end result is that the file from the
* list is entered in QEdit's "ring" *without* actually loading it. It
* only loads when you try to Nextfiles into it, just as if you had
* loaded the list via a wildcard. Neat!
*
* Kyle really came up with a far better solution here.
*
* --Tim Farley
*
*********************************************************************
*
* Version History:
*
* 1.0a - modified to include Alt_1, Changed documentation.
* - added QLST.BAT for quick startup
* 1.0b - Changed name QLSTxx to QLSTxx
* - Modified QLST.BAT
* 1.1 - QLST.QL was setup for my system. Correct version
* requiring no changes is in v1.1.
* 1.2 - Modified documentation concerning error messages
* when loading files.
* 1.2a - Modified documentation
* 1.3 - Modified documentation and added START.BAT.
* - Changed QLIST file names to QLST.
* - Added option to @0 to have all files loaded in ring.
* Tom Hogshead Sun 11-04-1990